unit uMyStringTools;

interface

uses
  ComObj;

type
  TMyStringTools = class(TObject)
  public
    class function createGUIDString: String;
  end;

implementation

class function TMyStringTools.createGUIDString: String;
begin
  Result := CreateClassID;
end;

end.
